PC Plus SuperCD (UK) 1997 February/PC Plus Super CD (Issue 124) (PCP124-2-97) (February 1997).iso/componen/resize/demo/form1.frm

Visual Basic Form | 1995-11-13 | 11.7 KB | 369 lines

VERSION 2.00
Begin Form Form1
   BackColor       =   &H00C0C0C0&
   Caption         =   "ReSize Sample Application"
   ClientHeight    =   4785
   ClientLeft      =   1245
   ClientTop       =   1275
   ClientWidth     =   6405
   Height          =   5190
   Icon            =   FORM1.FRX:0000
   Left            =   1185
   LinkTopic       =   "Form1"
   ScaleHeight     =   4785
   ScaleWidth      =   6405
   Top             =   930
   Width           =   6525
   Begin CommandButton Command6
      Caption         =   "Enable Form Minimum Sizing"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   375
      Left            =   360
      TabIndex        =   19
      Top             =   4200
      Width           =   2775
   End
   Begin ReSize ReSize1
      Enabled         =   -1  'True
      FormMinHeight   =   0
      FormMinWidth    =   0
      Left            =   120
      Top             =   2400
   End
   Begin CommandButton Command5
      Caption         =   "Line Demo"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   375
      Left            =   3240
      TabIndex        =   18
      Top             =   3720
      Width           =   2775
   End
   Begin CommandButton Command4
      Caption         =   "Move things around"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   375
      Left            =   3240
      TabIndex        =   17
      Top             =   4200
      Width           =   2775
   End
   Begin CommandButton Command3
      Caption         =   "Change Fonts"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   375
      Left            =   360
      TabIndex        =   16
      Top             =   3720
      Width           =   2775
   End
   Begin CommandButton Command2
      Caption         =   "Help"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   372
      Left            =   4800
      TabIndex        =   15
      Top             =   720
      Width           =   1332
   End
   Begin Frame Frame1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Misc. Info"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   972
      Left            =   960
      TabIndex        =   14
      Top             =   2280
      Width           =   4452
      Begin CheckBox Check1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Current Client?"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   7.5
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   252
         Left            =   240
         TabIndex        =   5
         Top             =   360
         Width           =   1572
      End
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Male"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   7.5
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   252
         Left            =   2520
         TabIndex        =   6
         Top             =   360
         Width           =   1212
      End
      Begin OptionButton Option2
         BackColor       =   &H00C0C0C0&
         Caption         =   "Female"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   7.5
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   252
         Left            =   2520
         TabIndex        =   7
         Top             =   600
         Width           =   1332
      End
   End
   Begin CommandButton Command1
      Caption         =   "Exit"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   372
      Left            =   4800
      TabIndex        =   8
      Top             =   240
      Width           =   1332
   End
   Begin TextBox Text5
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   288
      Left            =   5040
      TabIndex        =   4
      Top             =   1440
      Width           =   732
   End
   Begin TextBox Text4
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   288
      Left            =   3960
      TabIndex        =   3
      Top             =   1440
      Width           =   372
   End
   Begin TextBox Text3
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   288
      Left            =   1320
      TabIndex        =   2
      Top             =   1440
      Width           =   1812
   End
   Begin TextBox Text2
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   288
      Left            =   1320
      TabIndex        =   1
      Top             =   960
      Width           =   2772
   End
   Begin TextBox Text1
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   288
      Left            =   1320
      TabIndex        =   0
      Top             =   480
      Width           =   2772
   End
   Begin Line Line1
      BorderWidth     =   4
      X1              =   360
      X2              =   6000
      Y1              =   3600
      Y2              =   3600
   End
   Begin Label Label5
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0C0C0&
      BackStyle       =   0  'Transparent
      Caption         =   "Zip:"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   252
      Left            =   4320
      TabIndex        =   9
      Top             =   1440
      Width           =   612
   End
   Begin Label Label4
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0C0C0&
      BackStyle       =   0  'Transparent
      Caption         =   "State:"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   252
      Left            =   3120
      TabIndex        =   10
      Top             =   1440
      Width           =   732
   End
   Begin Label Label3
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0C0C0&
      BackStyle       =   0  'Transparent
      Caption         =   "City:"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   252
      Left            =   480
      TabIndex        =   11
      Top             =   1440
      Width           =   732
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0C0C0&
      BackStyle       =   0  'Transparent
      Caption         =   "Address:"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   252
      Left            =   360
      TabIndex        =   12
      Top             =   960
      Width           =   852
   End
   Begin Label Label1
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Name:"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   7.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   252
      Left            =   600
      TabIndex        =   13
      Top             =   480
      Width           =   612
   End
Option Explicit
Sub Command1_Click ()
    End
End Sub
Sub Command2_Click ()
    Form2.Show 1
End Sub
Sub Command3_Click ()
    If Label1.FontName = "Arial" Then
        Label1.FontName = "Times New Roman"
        Label2.FontName = "Times New Roman"
        Label3.FontName = "Times New Roman"
        Label4.FontName = "Times New Roman"
        Label5.FontName = "Times New Roman"
    Else
        Label1.FontName = "Arial"
        Label2.FontName = "Arial"
        Label3.FontName = "Arial"
        Label4.FontName = "Arial"
        Label5.FontName = "Arial"
    End If
End Sub
Sub Command4_Click ()
    Dim Temp As Integer
    Option2.Left = Check1.Left
    Temp = Check1.Left
    Check1.Left = Option1.Left
    Option1.Left = Temp
End Sub
Sub Command5_Click ()
    Form3.Show 1
End Sub
Sub Command6_Click ()
    If Command6.Caption = "Enable Form Minimum Sizing" Then
        Command6.Caption = "Disable Form Minimum Sizing"
        ReSize1.FormMinWidth = 4000
        ReSize1.FormMinHeight = 3000
        MsgBox "The smallest size you can make this form has been set to 3000 X 4000 twips.", 0, "ReSize Sample Application"
    Else
        Command6.Caption = "Enable Form Minimum Sizing"
        ReSize1.FormMinWidth = 0
        ReSize1.FormMinHeight = 0
        MsgBox "The minimum form size restriction has been turned off.", 0, "ReSize Sample Application"
    End If
End Sub